home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / adder loader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.4 KB  |  102 lines
  1. 1 POKE53280,14:POKE646,14:POKE53281,6
  2. 2 PRINT"[147]THIS LOADER POKES THE DATA STATEMENTS"
  3. 3 PRINT"INTO MEMORY THEN MAKES THE MACHINE CODE"
  4. 4 PRINT"FILE NAMED 'ADDER.49152' AND SAVES IT TO"
  5. 5 PRINT"DISK"
  6. 6 PRINT"ANY KEY TO CONTINUE..."
  7. 7 POKE198,0:WAIT198,1:POKE198,0
  8. 10 REM -- ADDERLOADER: BASIC LOADER FOR LOADER ADDER @ 49152
  9. 20 PRINT"[147] BASIC LOADER FOR LOADER ADDER @ 49152
  10. 30 [153]" PLEASE WAIT..."
  11. 100 [131]160,000,185,023,192,240,013,032,210,255
  12. 110 [131]200,192,000,208,243,238,004,192,208,238,076,165,193
  13. 120 [131]147,017,032,032,032,032,032:[143] [CLR][DN][5SPC]
  14. 130 [131]018,032,032,032,032,032,032,032,032,032:[143] [RVON][9SPC]
  15. 140 [131]076,079,065,068,069,082,065,068,068,069:[143] LOADERADDE
  16. 150 [131]082,032,032,032,032,032,032,032,032,032:[143] R[9SPC]
  17. 160 [131]017,017,013,032,084,072,073,083,032,080:[143] [2DN][RET] THIS P
  18. 170 [131]082,079,071,082,065,077,077,069,032,076:[143] ROGRAMMEL
  19. 180 [131]079,065,068,083,032,065,032,080,082,069:[143] OADS A PRE
  20. 190 [131]076,079,065,068,069,082,032,077,065,068:[143] LOADER MAD
  21. 200 [131]069,032,032,032,066,089,032,065,078,032:[143] E   BY AN[SPC]
  22. 210 [131]065,067,084,073,079,078,032,082,069,080:[143] ACTION REP
  23. 220 [131]076,065,089,032,067,065,082,084,082,073:[143] LAY CARTRI
  24. 230 [131]068,071,069,044,032,065,078,068,013,032:[143] DGE, AND[RET][SPC]
  25. 240 [131]065,068,068,083,032,084,079,032,073,084:[143] ADDS TO IT
  26. 250 [131]032,065,078,032,079,082,068,073,078,065:[143]  AN ORDINA
  27. 260 [131]082,089,032,076,079,065,068,073,078,071:[143] RY LOADING
  28. 270 [131]032,077,079,068,085,076,069,013,032,087:[143]  MODULE[RET] W
  29. 280 [131]072,073,067,072,032,087,079,082,075,083:[143] HICH WORKS
  30. 290 [131]032,087,073,084,072,032,079,082,032,087:[143]  WITH OR W
  31. 300 [131]073,084,072,079,085,084,032,065,078,089:[143] ITHOUT ANY
  32. 310 [131]032,070,065,083,084,045,013,032,076,079:[143]  FAST-[RET] LO
  33. 320 [131]065,068,069,082,046,032,073,084,032,065:[143] ADER. IT A
  34. 330 [131]083,083,085,077,069,083,032,084,072,065:[143] SSUMES THA
  35. 340 [131]084,032,073,078,032,084,072,069,032,079:[143] T IN THE O
  36. 350 [131]082,073,071,073,045,013,032,078,065,076:[143] RIGI-[RET] NAL
  37. 360 [131]032,080,082,069,076,079,065,068,069,082:[143]  PRELOADER
  38. 370 [131]044,032,074,077,080,032,036,070,070,068:[143] , JMP $FFD
  39. 380 [131]053,032,079,067,067,085,082,083,032,065:[143] 5 OCCURS A
  40. 390 [131]084,013,032,036,048,056,051,053,046,032:[143] T[RET] $0835.[SPC]
  41. 400 [131]032,073,084,032,083,085,066,083,084,073:[143]  IT SUBSTI
  42. 410 [131]084,085,084,069,083,032,070,079,082,032:[143] TUTES FOR[SPC]
  43. 420 [131]084,072,065,084,044,013,032,074,077,080:[143] THAT,[RET] JMP
  44. 430 [131]032,036,091,078,069,087,032,066,065,032:[143]  $[NEW BA[SPC]
  45. 440 [131]079,070,032,084,072,073,083,032,076,079:[143] OF THIS LO
  46. 450 [131]065,068,069,082,093,046,013,017,017,032:[143] ADER].[RET][2DN][SPC]
  47. 460 [131]078,079,087,032,080,076,069,065,083,069:[143] NOW PLEASE
  48. 470 [131]032,073,078,083,084,065,076,076,032,032:[143]  INSTALL[2SPC]
  49. 480 [131]084,072,069,032,068,073,083,075,032,073:[143] THE DISK I
  50. 490 [131]078,032,084,072,069,013,032,068,082,073:[143] N THE[RET] DRI
  51. 500 [131]086,069,046,013,013,045,062,032,080,082:[143] VE.[2RET]-> PR
  52. 510 [131]079,071,046,032,078,065,077,069,063,032:[143] OG. NAME?
  53. 520 [131]000,160,000,032,207,255,153,219,193,201:[143] [THIS ZERO TERMINATES TEXT]
  54. 530 [131]013,240,003,200,208,243,152,141,199,193
  55. 540 [131]032,190,193,076,234,193,169,008,170,160
  56. 550 [131]001,032,186,255,169,000,162,219,160,193
  57. 560 [131]032,189,255,234,169,000,032,213,255,134
  58. 570 [131]045,132,046,096,000,000,132,046,096,000
  59. 580 [131]000,160,001,032,186,255,169,000,162,000
  60. 590 [131]238,199,193,169,049,141,218,193,024,165:[143] 049 = "1" PREFIX MAIN PRG
  61. 600 [131]045,105,028,141,201,193,165,046,105,000
  62. 610 [131]141,203,193,169,076,141,210,193,160,000
  63. 620 [131]185,190,193,145,045,200,192,043,240,002
  64. 630 [131]208,244,165,045,141,054,008,165,046,141:[143] 054,008 = LB,HB OF $0836
  65. 640 [131]055,008,160,000,185,097,194,240,013,032:[143] 055,008 = LB,HB OF $0837
  66. 645 [143] $0835 WAS JMP $FFD5. THIS CHANGES THE OPERANDS TO LB,HB OF PRELOADER EA.
  67. 646 [143] IF THAT JMP $FFD5 IS AT A DIFFERENT LOCATION, MERELY CHANGE AS ABOVE.
  68. 650 [131]210,255,200,192,000,208,243,238,034,194
  69. 660 [131]208,238,032,207,255,201,089,240,001,096
  70. 670 [131]169,043,141,218,193,169,218,141,201,193:[143] 043 = "+" PREFIX NEW LOADER
  71. 680 [131]169,193,141,203,193,169,096,141,207,193
  72. 690 [131]024,165,045,105,045,133,045,165,046,105
  73. 700 [131]000,133,046,032,190,193,076,089,225
  74. 710 [131]147,017,032,032,032,032,032,018,032,032,032:[143] [CLR][DN][5SPC][RV][3SPC
  75. 720 [131]032,032,032,032,032,032,018,083,065,086:[143] [6SPC][RVON]SAV
  76. 730 [131]069,032,079,080,084,073,079,078,032,032:[143] E OPTION[2SPC]
  77. 740 [131]032,032,032,018,032,032,032,032,013,017:[143] [3SPC][RVON][4SPC][RET][DN]
  78. 750 [131]017,032,073,070,032,083,065,086,069,068:[143] [DN] IF SAVED
  79. 760 [131]044,032,084,072,069,032,069,088,080,065:[143] , THE EXPA
  80. 770 [131]078,068,069,068,032,076,079,065,068,069:[143] DED LOADE
  81. 780 [131]082,032,087,073,076,076,013,032,066,069:[143] R WILL[RET] BE
  82. 790 [131]065,082,032,065,032,080,082,069,070,073:[143] AR A PREFI
  83. 800 [131]088,044,032,034,043,034,032,066,069,070:[143] X, "+" BEF
  84. 810 [131]079,082,069,032,084,072,069,032,079,082:[143] ORE THE OR
  85. 820 [131]073,071,073,078,065,076,013,032,078,065:[143] IGINAL[RET] NA
  86. 830 [131]077,069,046,032,084,072,069,032,077,065:[143] ME. THE MA
  87. 840 [131]073,078,032,080,082,071,032,084,079,032:[143] IN PRG TO[SPC]
  88. 850 [131]066,069,032,076,079,065,068,069,068,032:[143] BE LOADED
  89. 860 [131]077,085,083,084,013,032,066,069,065,082:[143] MUST[RET] BEAR
  90. 870 [131]032,065,032,034,049,034,032,080,082,069:[143]  A "1" PRE
  91. 880 [131]070,073,088,046,017,013,032,083,065,086:[143] FIX.[DN][RET] SAV
  92. 890 [131]069,032,040,089,047,078,041,063,032,000,000:[143] E (Y/N)?[SPC][TERM.0]
  93. 900 [129]X[178]49152[164]49952:[135]Y:[151]X,Y:[130]
  94. 920 Q$[178][199](34):[153]:[153]" (1) ACTIVATE
  95. 930 PRINT" (2) SAVE TO DISK AS "Q$"ADDER.49152"Q$""
  96. 940 GETA$:IFA$=""THEN940
  97. 950 ONVAL(A$)GOTO960,970:GOTO950
  98. 960 SYS49152
  99. 970 OPEN1,8,1,"ADDER.49152":PRINT" SAVING "Q$"ADDER.49152"Q$
  100. 980 PRINT#1,CHR$(0);CHR$(192);:FORN=49152TO49957
  101. 990 PRINT#1,CHR$(PEEK(N));:NEXT:CLOSE1:PRINT:PRINT" DONE!":END
  102.